home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
NASA Climatology Interdisciplinary Data Collection
/
NASA Climatology Interdisciplinary Data Collection - Disc 4.iso
/
software
/
grads
/
lib
/
frame.gs
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1998-04-23
|
384 b
|
22 lines
say 'FRAME script running. Enter "exit" to terminate script.'
while (1)
prompt 'ga> '
pull cmd
wrd = subwrd(cmd,1)
if (wrd='exit' | wrd='quit')
break
endif
if (wrd='d' | wrd='display')
'clear norset'
cmd
res = result
pull dummy
'clear'
prompt res
else
cmd
prompt result
endif
endwhile
say 'FRAME script done'